| Filename | (eval 1111)[/usr/share/perl5/Sub/Quote.pm:5] |
| Statements | Executed 725 statements in 1.03ms |
| Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 90 | 2 | 2 | 705µs | 1.34ms | DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count |
| 1 | 1 | 1 | 14µs | 26µs | Sub::Quote::BEGIN@4.2969 |
| 1 | 1 | 1 | 7µs | 7µs | Method::Generate::Accessor::BEGIN@10.2970 |
| 1 | 1 | 1 | 6µs | 6µs | DBIx::Class::Storage::BlockRunner::BEGIN@21 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 1µs | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 3 | 1 | 200ns | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||
| 4 | 2 | 105µs | 2 | 37µs | # spent 26µs (14+12) within Sub::Quote::BEGIN@4.2969 which was called:
# once (14µs+12µs) by Sub::Quote::_clean_eval at line 4 # spent 26µs making 1 call to Sub::Quote::BEGIN@4.2969
# spent 12µs making 1 call to warnings::unimport |
| 5 | # spent 1.34ms (705µs+639µs) within DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count which was called 90 times, avg 15µs/call:
# 89 times (690µs+638µs) by DBIx::Class::Storage::BlockRunner::run at line 108 of DBIx/Class/Storage/BlockRunner.pm, avg 15µs/call
# once (15µs+1µs) by DBIx::Class::Storage::BlockRunner::run at line 56 of Sub/Defer.pm | ||||
| 6 | $_QUOTED if 0; | ||||
| 7 | 89 | 10µs | $_UNQUOTED if 0; | ||
| 8 | # BEGIN quote_sub PRELUDE | ||||
| 9 | package Method::Generate::Accessor; | ||||
| 10 | # spent 7µs within Method::Generate::Accessor::BEGIN@10.2970 which was called:
# once (7µs+0s) by Sub::Quote::_clean_eval at line 15 | ||||
| 11 | 1 | 1µs | $^H = "1762"; | ||
| 12 | 1 | 500ns | ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"; | ||
| 13 | 1 | 5µs | %^H = ( | ||
| 14 | ); | ||||
| 15 | 1 | 75µs | 1 | 7µs | } # spent 7µs making 1 call to Method::Generate::Accessor::BEGIN@10.2970 |
| 16 | # END quote_sub PRELUDE | ||||
| 17 | 178 | 264µs | do { my $self = shift; | ||
| 18 | 89 | 86µs | $self->{"failed_attempt_count"} = $_[0]; | ||
| 19 | 178 | 97µs | do { local @_ = ($self, $_[0]); # BEGIN quote_sub PRELUDE | ||
| 20 | package DBIx::Class::Storage::BlockRunner; | ||||
| 21 | # spent 6µs within DBIx::Class::Storage::BlockRunner::BEGIN@21 which was called:
# once (6µs+0s) by Sub::Quote::_clean_eval at line 26 | ||||
| 22 | 1 | 800ns | $^H = "133090"; | ||
| 23 | 1 | 400ns | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU"; | ||
| 24 | 1 | 5µs | %^H = ( | ||
| 25 | ); | ||||
| 26 | 1 | 98µs | 1 | 6µs | } # spent 6µs making 1 call to DBIx::Class::Storage::BlockRunner::BEGIN@21 |
| 27 | # END quote_sub PRELUDE | ||||
| 28 | |||||
| 29 | 89 | 259µs | 1 | 1µs | $_[0]->throw_exception( sprintf ( # spent 1µs making 1 call to DBIx::Class::Storage::BlockRunner::max_attempts |
| 30 | 'Reached max_attempts amount of %d, latest exception: %s', | ||||
| 31 | $_[0]->max_attempts, $_[0]->last_exception | ||||
| 32 | )) if $_[0]->max_attempts <= ($_[1]||0); | ||||
| 33 | }; | ||||
| 34 | 89 | 21µs | $_[0]; | ||
| 35 | } } | ||||
| 36 | 1 | 1µs | $$_UNQUOTED = \&DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count | ||
| 37 | } | ||||
| 38 | 1 | 4µs | 1; | ||
| 39 | |||||
| 40 | ; |